home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / undefi.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  344 b   |  15 lines
  1.       subroutine undefi(array,length)
  2.       implicit double precision (a-h,o-z)
  3. c
  4.       dimension array(1)
  5. c     this routine undefines the memory locations indicated by array(1)
  6. c through array(length).
  7. c
  8.       data aundef /2h.u/
  9.       if (length.eq.0) return
  10.       do 10 i=1,length
  11.       array(i)=aundef
  12.    10 continue
  13.       return
  14.       end
  15.